Imports System.Data.SqlClient

Public Class Sys
    Private sTenDv As String
    Private sTenDvCq As String
    Private sSvr As String
    Private sDb As String
    Private sMaKho As String

    Public Property TenDv() As String
        Get
            Return sTenDv
        End Get
        Set(ByVal Value As String)
            sTenDv = Value
        End Set
    End Property
    Public Property TenDvCq() As String
        Get
            Return sTenDvCq
        End Get
        Set(ByVal Value As String)
            sTenDvCq = Value
        End Set
    End Property
    Public Property Svr() As String
        Get
            Return sSvr
        End Get
        Set(ByVal Value As String)
            sSvr = Value
        End Set
    End Property
    Public Property Db() As String
        Get
            Return sDb
        End Get
        Set(ByVal Value As String)
            sDb = Value
        End Set
    End Property

    Public Property MaKho() As String
        Get
            Return sMaKho
        End Get
        Set(ByVal Value As String)
            sMaKho = Value
        End Set
    End Property

End Class

Public Class SysF

    Public Function GetInfo() As DataTable
        Dim myProjectCnn As New ProjectConnection
        Dim myCnn As New SqlConnection
        Dim myDat As New SqlDataAdapter
        Dim myDtb As New DataTable

        myCnn = myProjectCnn.GetConnection
        myCnn.Open()

        Dim myCmd As New SqlCommand
        With myCmd
            .Connection = myCnn
            .CommandType = CommandType.StoredProcedure
            .CommandText = "_System_Get"

        End With

        myDat = New SqlDataAdapter(myCmd)
        myDat.Fill(myDtb)
        Return myDtb
        myCnn.Close()
    End Function




End Class